home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Prog / D-G / GNU Chess 3.0 / Sources TC 4.0 / file.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-03-16  |  7.9 KB  |  319 lines  |  [TEXT/KAHL]
  1. /*
  2.   Mac interface for GNU Chess
  3.  
  4.   Revision: 10 Feb 1991
  5.  
  6.   Copyright (C) 1986, 1987, 1988 Free Software Foundation, Inc.
  7.   Copyright (c) 1991  Airy ANDRE
  8.  
  9.     expanded game save, list, and restore features
  10.     optional auto-updating of positional information
  11.  
  12.   This file is part of CHESS.
  13.  
  14.   CHESS is distributed in the hope that it will be useful,
  15.   but WITHOUT ANY WARRANTY.  No author or distributor
  16.   accepts responsibility to anyone for the consequences of using it
  17.   or for whether it serves any particular purpose or works at all,
  18.   unless he says so in writing.  Refer to the CHESS General Public
  19.   License for full details.
  20.  
  21.   Everyone is granted permission to copy, modify and redistribute
  22.   CHESS, but only under the conditions described in the
  23.   CHESS General Public License.   A copy of this license is
  24.   supposed to have been given to you along with CHESS so you
  25.   can know your rights and responsibilities.  It should be in a
  26.   file named COPYING.  Among other things, the copyright notice
  27.   and this notice must be preserved on all copies.
  28.   */
  29.  
  30. #include <stdio.h>
  31. #include <DragMgr.h>
  32. #include <pascal.h>
  33. #include <SANE.h>
  34. #include "math.h"
  35.  
  36. #include "gnuchess.h"
  37. #include "macintf.h"
  38. #include "rsrc.h"
  39.  
  40. void
  41. GetOpenings ()
  42.  
  43. /*
  44.   Read in the Opening Book file and parse the algebraic notation for a
  45.   move into an unsigned integer format indicating the from and to
  46.   square. Create a linked list of opening lines of play, with
  47.   entry->next pointing to the next line and entry->move pointing to a
  48.   chunk of memory containing the moves. More Opening lines of up to 256
  49.   half moves may be added to gnuchess.book.
  50.   */
  51.  
  52. {
  53.   FILE *fd;
  54.   int c, i, j, side;
  55.   struct BookEntry *entry;
  56.   unsigned short mv, *mp, tmp[100];
  57.  
  58.   if (((fd = fopen (BOOK, "r")) != NULL) ||
  59.       ((fd = fopen ("gnuchess.book", "r")) != NULL))
  60.     {
  61.       Book = NULL;
  62.       i = 0;
  63.       side = white;
  64.       while ((c = parse (fd, &mv, side)) >= 0)
  65.     if (c == 1)
  66.       {
  67.         tmp[++i] = mv;
  68.         side = otherside[side];
  69.       }
  70.     else if (c == 0 && i > 0)
  71.       {
  72.         entry = (struct BookEntry *) malloc (sizeof (struct BookEntry));
  73.         mp = (unsigned short *) malloc ((i + 1) * sizeof (unsigned short));
  74.         if (entry!=NULL && mp!=NULL) {
  75.             entry->mv = mp;
  76.             entry->next = Book;
  77.             Book = entry;
  78.             for (j = 1; j <= i; j++)
  79.               *(mp++) = tmp[j];
  80.             *mp = 0;
  81.             i = 0;
  82.             side = white;
  83.         } else {
  84.             if (entry != NULL) free(entry);
  85.             if (mp != NULL) free(mp);
  86.         }
  87.       }
  88.       fclose (fd);
  89.     }
  90. }
  91.  
  92.  
  93. int
  94. parse (fd, mv, side)
  95.      FILE *fd;
  96.      short unsigned int *mv;
  97.      short int side;
  98. {
  99.   int c, i, r1, r2, c1, c2;
  100.   char s[100];
  101.   while ((c = getc (fd)) == ' ') ;
  102.   i = 0;
  103.   s[0] = c;
  104.   while (c != ' ' && c != '\n' && c != EOF)
  105.     s[++i] = c = getc (fd);
  106.   s[++i] = '\0';
  107.   if (c == EOF)
  108.     return (-1);
  109.   if (s[0] == '!' || s[0] == ';' || i < 3)
  110.     {
  111.       while (c != '\n' && c != EOF)
  112.     c = getc (fd);
  113.       return (0);
  114.     }
  115.   if (s[4] == 'o')
  116.     if (side == black)
  117.       *mv = 0x3C3A;
  118.     else
  119.       *mv = 0x0402;
  120.   else if (s[0] == 'o')
  121.     if (side == black)
  122.       *mv = 0x3C3E;
  123.     else
  124.       *mv = 0x0406;
  125.   else
  126.     {
  127.       c1 = s[0] - 'a';
  128.       r1 = s[1] - '1';
  129.       c2 = s[2] - 'a';
  130.       r2 = s[3] - '1';
  131.       *mv = (locn(r1, c1) << 8) + locn(r2, c2);
  132.     }
  133.   return (1);
  134. }
  135.  
  136. void
  137. GetGame ()
  138. {
  139.   int i;
  140.   long count;
  141.   SFTypeList list;
  142.   Point where;
  143.   SFReply reply;
  144.   int ref;
  145.   FileHeader header;
  146.   
  147.   where.h = 80; where.v = 90;
  148.   list[0] = 'GCsg';
  149.   SFGetFile(where, "\p", 0L, 1, list, 0L, &reply);
  150.   if (!reply.good) return;
  151.   
  152.   LDelRow(0,0,List);
  153.  
  154.   if ( FSOpen( reply.fName, reply.vRefNum, &ref ) == noErr) {
  155.         SetCursor(*ClockCursor);
  156.         count = sizeof(header);
  157.         FSRead( ref, &count, &header);
  158.         if (header.version == CUR_VERSION && header.signature == SIGNATURE) {
  159.             count = sizeof(drawn);
  160.             FSRead( ref, &count, &drawn);
  161.             count = sizeof(mate);
  162.             FSRead( ref, &count, &mate);
  163.             count = sizeof(towho);
  164.             FSRead( ref, &count, &towho);
  165.             count = sizeof(computer);
  166.             FSRead( ref, &count, &computer);
  167.             count = sizeof(opponent);
  168.             FSRead( ref, &count, &opponent);
  169.             count = sizeof(castld);
  170.             FSRead( ref, &count, castld);
  171.             count = sizeof(TCflag);
  172.             FSRead( ref, &count, TCflag);
  173.             count = sizeof(OperatorTime);
  174.             FSRead( ref, &count, OperatorTime);
  175.             count = sizeof(TimeControl);
  176.             FSRead( ref, &count, &TimeControl);
  177.             count = sizeof(GameCnt);
  178.             FSRead( ref, &count, &GameCnt);
  179.             count = sizeof(color);
  180.             FSRead( ref, &count, color);
  181.             count = sizeof(board);
  182.             FSRead( ref, &count, board);
  183.             count = sizeof(Mvboard);
  184.             FSRead( ref, &count, Mvboard);
  185.             count = 500 * sizeof(struct GameRec);
  186.             FSRead( ref, &count, GameList);
  187.             FSClose( ref );
  188.             InitCursor();
  189.         } else {
  190.             FSClose( ref );
  191.             InitCursor();
  192.             return;
  193.         }
  194.   }
  195.   
  196.   preview = 0;
  197.   InitializeStats ();
  198.   Sdepth = 0;
  199.   for (i=0; i<64; i++) {
  200.       saveColor[i] = color[i];
  201.       saveBoard[i] = board[i];
  202.   }
  203.   for (i=0; i<=GameCnt; i++) {
  204.       algbr(GameList[i].gmove >> 8,GameList[i].gmove & 0xFF,GameList[i].flags);
  205.       AddMove(i, mvstr[(GameList[i].flags & cstlmask) != 0]);
  206.   }
  207.   UpdateDisplay (0, 0, 1, 0, 1, color, board);
  208. }
  209.  
  210. void SaveGame()
  211. {
  212.     Point where;
  213.     SFReply reply;
  214.     long count;
  215.     int outRef;
  216.     FileHeader header;
  217.     Str255 fileName;
  218.     
  219.     where.h = 100; where.v = 50;
  220.     
  221.     header.version = CUR_VERSION;
  222.     header.signature = SIGNATURE;
  223.     GetWTitle(WindBoard, fileName);
  224.     SFPutFile(where, "", fileName, 0L, &reply);
  225.     if (!reply.good) return;
  226.     FSDelete(reply.fName, reply.vRefNum);
  227.     Create( reply.fName, reply.vRefNum, 'GCHS', 'GCsg' );
  228.     if ( FSOpen( reply.fName, reply.vRefNum, &outRef ) == noErr) {
  229.         SetCursor(*ClockCursor);
  230.         count = sizeof(header);
  231.         FSWrite( outRef, &count, &header);
  232.         count = sizeof(drawn);
  233.         FSWrite( outRef, &count, &drawn);
  234.         count = sizeof(mate);
  235.         FSWrite( outRef, &count, &mate);
  236.         count = sizeof(towho);
  237.         FSWrite( outRef, &count, &towho);
  238.         count = sizeof(computer);
  239.         FSWrite( outRef, &count, &computer);
  240.         count = sizeof(opponent);
  241.         FSWrite( outRef, &count, &opponent);
  242.         count = sizeof(castld);
  243.         FSWrite( outRef, &count, castld);
  244.         count = sizeof(TCflag);
  245.         FSWrite( outRef, &count, TCflag);
  246.         count = sizeof(OperatorTime);
  247.         FSWrite( outRef, &count, OperatorTime);
  248.         count = sizeof(TimeControl);
  249.         FSWrite( outRef, &count, &TimeControl);
  250.         count = sizeof(GameCnt);
  251.         FSWrite( outRef, &count, &GameCnt);
  252.         count = sizeof(color);
  253.         FSWrite( outRef, &count, color);
  254.         count = sizeof(board);
  255.         FSWrite( outRef, &count, board);
  256.         count = sizeof(Mvboard);
  257.         FSWrite( outRef, &count, Mvboard);
  258.         count = 500 * sizeof(struct GameRec);
  259.         FSWrite( outRef, &count, GameList);        
  260.         FSClose( outRef );
  261.         InitCursor();
  262.     }
  263. }
  264.  
  265. int FSWriteStr(int ref, char * str)
  266. {
  267.     long count;
  268.     
  269.     count = *str;
  270.     return FSWrite( ref, &count, str); 
  271. }
  272.  
  273. void
  274. ListGame ()
  275. {
  276.     Point where;
  277.     int i, outRef;
  278.     SFReply reply;
  279.     Str255 fileName;
  280.     char bufout[100];
  281.     
  282.      where.h = 100; where.v = 50;
  283.     
  284.     GetWTitle(WindList, fileName);
  285.     SFPutFile(where, "", fileName, 0L, &reply);
  286.     if (!reply.good) return;
  287.     FSDelete(reply.fName, reply.vRefNum);
  288.     Create( reply.fName, reply.vRefNum, 'GCHS', 'TEXT' );
  289.     if ( FSOpen( reply.fName, reply.vRefNum, &outRef ) == noErr) {
  290.         SetCursor(*ClockCursor);
  291.  
  292.         FSWriteStr( outRef, "\p\r");
  293.           FSWriteStr( outRef, *(char **)GetString(_LISTHEAD_STR));
  294.           FSWriteStr( outRef, "\p         ");
  295.           FSWriteStr( outRef, *(char **)GetString(_LISTHEAD_STR));
  296.         FSWriteStr( outRef, "\p\r");
  297.           for (i = 0; i <= GameCnt; i++)
  298.             {
  299.                 int f,t;
  300.                 
  301.               f = GameList[i].gmove >> 8;
  302.               t = (GameList[i].gmove & 0xFF);
  303.               algbr (f, t, GameList[i].flags);
  304.               if ((i % 2) == 0)
  305.                 FSWriteStr( outRef, "\p\r");
  306.               else
  307.                 FSWriteStr ( outRef, "\p         ");
  308.                   sprintf (bufout+1, "%5s  %5d     %2d %7ld %5d", mvstr[0],
  309.                    GameList[i].score, GameList[i].depth,
  310.                    GameList[i].nodes, GameList[i].time);
  311.              *bufout = strlen(bufout+1);
  312.              FSWriteStr( outRef, bufout);
  313.         }
  314.          FSWriteStr ( outRef, "\p\r\r");
  315.         FSClose( outRef );
  316.         InitCursor();
  317.     }
  318. }
  319.